home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / inform1a / infosear.frm < prev    next >
Text File  |  1998-09-11  |  11KB  |  423 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Information Browser - v1.0"
  5.    ClientHeight    =   7425
  6.    ClientLeft      =   60
  7.    ClientTop       =   630
  8.    ClientWidth     =   10620
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   495
  12.    ScaleMode       =   3  'Pixel
  13.    ScaleWidth      =   708
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.PictureBox go_forward 
  16.       BorderStyle     =   0  'None
  17.       Height          =   225
  18.       Left            =   3720
  19.       Picture         =   "InfoSearch.frx":0000
  20.       ScaleHeight     =   225
  21.       ScaleWidth      =   615
  22.       TabIndex        =   10
  23.       Top             =   120
  24.       Width           =   615
  25.    End
  26.    Begin VB.PictureBox go_back 
  27.       BorderStyle     =   0  'None
  28.       Height          =   225
  29.       Left            =   3360
  30.       Picture         =   "InfoSearch.frx":03A8
  31.       ScaleHeight     =   225
  32.       ScaleWidth      =   255
  33.       TabIndex        =   9
  34.       Top             =   120
  35.       Width           =   255
  36.    End
  37.    Begin VB.PictureBox Picture3 
  38.       BorderStyle     =   0  'None
  39.       Height          =   225
  40.       Left            =   4440
  41.       Picture         =   "InfoSearch.frx":074D
  42.       ScaleHeight     =   225
  43.       ScaleWidth      =   615
  44.       TabIndex        =   8
  45.       Top             =   120
  46.       Width           =   615
  47.    End
  48.    Begin VB.PictureBox Picture2 
  49.       BorderStyle     =   0  'None
  50.       Height          =   225
  51.       Left            =   5160
  52.       Picture         =   "InfoSearch.frx":0B70
  53.       ScaleHeight     =   225
  54.       ScaleWidth      =   615
  55.       TabIndex        =   7
  56.       Top             =   120
  57.       Width           =   615
  58.    End
  59.    Begin VB.PictureBox Picture1 
  60.       BorderStyle     =   0  'None
  61.       Height          =   225
  62.       Left            =   5880
  63.       Picture         =   "InfoSearch.frx":0FA0
  64.       ScaleHeight     =   225
  65.       ScaleWidth      =   615
  66.       TabIndex        =   6
  67.       Top             =   120
  68.       Width           =   615
  69.    End
  70.    Begin VB.ListBox previous_searches 
  71.       Height          =   1620
  72.       Left            =   7680
  73.       TabIndex        =   4
  74.       Top             =   240
  75.       Width           =   2895
  76.    End
  77.    Begin VB.TextBox search_url 
  78.       Height          =   285
  79.       Left            =   120
  80.       TabIndex        =   3
  81.       Top             =   720
  82.       Visible         =   0   'False
  83.       Width           =   3495
  84.    End
  85.    Begin SHDocVwCtl.WebBrowser search_results 
  86.       Height          =   5175
  87.       Left            =   0
  88.       TabIndex        =   2
  89.       Top             =   2160
  90.       Width           =   10650
  91.       ExtentX         =   18785
  92.       ExtentY         =   9128
  93.       ViewMode        =   1
  94.       Offline         =   0
  95.       Silent          =   0
  96.       RegisterAsBrowser=   0
  97.       RegisterAsDropTarget=   1
  98.       AutoArrange     =   -1  'True
  99.       NoClientEdge    =   0   'False
  100.       AlignLeft       =   0   'False
  101.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  102.       Location        =   ""
  103.    End
  104.    Begin VB.TextBox search_string 
  105.       Height          =   285
  106.       Left            =   120
  107.       TabIndex        =   1
  108.       Top             =   360
  109.       Width           =   6420
  110.    End
  111.    Begin VB.ComboBox search_engine 
  112.       Height          =   315
  113.       Left            =   120
  114.       TabIndex        =   0
  115.       Top             =   0
  116.       Width           =   3135
  117.    End
  118.    Begin VB.Label Label1 
  119.       Caption         =   "Previous Searches"
  120.       BeginProperty Font 
  121.          Name            =   "MS Sans Serif"
  122.          Size            =   8.25
  123.          Charset         =   0
  124.          Weight          =   700
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   255
  130.       Left            =   7680
  131.       TabIndex        =   5
  132.       Top             =   0
  133.       Width           =   2895
  134.    End
  135.    Begin VB.Menu mnu_file 
  136.       Caption         =   "&File"
  137.       Begin VB.Menu mnu_file_open 
  138.          Caption         =   "&Open"
  139.       End
  140.       Begin VB.Menu mnu_file_seperator 
  141.          Caption         =   "-"
  142.       End
  143.       Begin VB.Menu mnu_file_exit 
  144.          Caption         =   "E&xit"
  145.       End
  146.    End
  147.    Begin VB.Menu mnu_web 
  148.       Caption         =   "On The &Web"
  149.       Begin VB.Menu mnu_web_riot_home 
  150.          Caption         =   "&Information Riot Website"
  151.       End
  152.    End
  153.    Begin VB.Menu mnu_help 
  154.       Caption         =   "&Help"
  155.       Begin VB.Menu mnu_help_search 
  156.          Caption         =   "&Search Help"
  157.       End
  158.       Begin VB.Menu mnu_help_seperator 
  159.          Caption         =   "-"
  160.       End
  161.       Begin VB.Menu mnu_help_about 
  162.          Caption         =   "&About"
  163.       End
  164.    End
  165. End
  166. Attribute VB_Name = "Form1"
  167. Attribute VB_GlobalNameSpace = False
  168. Attribute VB_Creatable = False
  169. Attribute VB_PredeclaredId = True
  170. Attribute VB_Exposed = False
  171. Private Sub ads_revolve_Timer()
  172. ad_bar.Refresh
  173. End Sub
  174. Private Sub Check1_Click()
  175.  
  176. search_engine.Enabled = True
  177. search_url.Text = ""
  178. End Sub
  179.  
  180. Private Sub Form_Load()
  181. On Error Resume Next
  182. search_engine.AddItem "Yahoo!"
  183. search_engine.AddItem "Yahoo! Stock Quotes(Symbol Lookup)"
  184. search_engine.AddItem "Altavista"
  185. search_engine.AddItem "Lycos"
  186. search_engine.AddItem "Lycos MP3 Search"
  187. search_engine.AddItem "Dogpile"
  188. search_engine.AddItem "Infoseek"
  189. search_engine.AddItem "Excite"
  190. search_engine.AddItem "HotBot"
  191. search_engine.AddItem "Deja"
  192. search_engine.AddItem "ICQ iT!"
  193. search_engine.AddItem "Thunderstone"
  194. search_engine.AddItem "Scrub The Web"
  195. search_engine.ListIndex = 0
  196. search_string.Text = ""
  197.  
  198. End Sub
  199.  
  200.  
  201. Private Sub Label2_Click()
  202. On Error Resume Next
  203. search_results.Stop
  204. End Sub
  205.  
  206. Private Sub go_back_Click()
  207. On Error Resume Next
  208. search_results.GoBack
  209. End Sub
  210.  
  211. Private Sub go_forward_Click()
  212. On Error Resume Next
  213. search_results.GoForward
  214. End Sub
  215.  
  216. Private Sub mnu_file_exit_Click()
  217. On Error Resume Next
  218. Unload Me
  219. End Sub
  220.  
  221. Private Sub mnu_file_open_Click()
  222. On Error Resume Next
  223. form_open.Show
  224. End Sub
  225.  
  226.  
  227.  
  228. Private Sub mnu_help_about_Click()
  229. On Error Resume Next
  230. frmAbout.Show
  231. End Sub
  232.  
  233. Private Sub mnu_web_riot_home_Click()
  234. On Error Resume Next
  235. search_results.Navigate ("http://www.inforiot.com")
  236. End Sub
  237.  
  238. Private Sub Picture1_Click()
  239. On Error Resume Next
  240. Dim strURL As String
  241. strURL = search_string.Text
  242. Dim bFound As Boolean
  243. On Error Resume Next
  244. 'check to make sure the url is valid
  245. If search_engine.Text = "Yahoo!" Then
  246. search_url.Text = "http://search.yahoo.com/bin/search?p="
  247. Else
  248. If search_engine.Text = "Yahoo! Stock Quotes(Symbol Lookup)" Then
  249. search_url.Text = "http://finance.yahoo.com/l?s="
  250. Else
  251. If search_engine.Text = "Altavista" Then
  252. search_url.Text = "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&stype=stext&q="
  253. Else
  254. If search_engine.Text = "Lycos" Then
  255. search_url.Text = "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query="
  256. Else
  257. If search_engine.Text = "Dogpile" Then
  258. search_url.Text = "http://www.dogpile.com/texis/search?q="
  259. Else
  260. If search_engine.Text = "Infoseek" Then
  261. search_url.Text = "http://infoseek.go.com/Titles?qt="
  262. Else
  263. If search_engine.Text = "Excite" Then
  264. search_url.Text = "http://search.excite.com/search.gw?search="
  265. Else
  266. If search_engine.Text = "HotBot" Then
  267. search_url.Text = "http://www.hotbot.com/?MT="
  268. Else
  269. If search_engine.Text = "Deja" Then
  270. search_url.Text = "http://www.deja.com/qs.xp?OP=dnquery.xp&ST=QS&QRY="
  271. Else
  272. If search_engine.Text = "ICQ iT!" Then
  273. search_url.Text = "http://www.icqit.com/default.asp?MT="
  274. Else
  275. If search_engine.Text = "Thunderstone" Then
  276. search_url.Text = "http://search.thunderstone.com/texis/websearch/?q="
  277. Else
  278. If search_engine.Text = "Scrub The Web" Then
  279. search_url.Text = "http://www.scrubtheweb.com/cgi-bin/search.cgi?keyword="
  280. Else
  281. If search_engine.Text = "Lycos MP3 Search" The